home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / frmwiz / rdblib / rberrfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-28  |  2.9 KB  |  106 lines
  1. VERSION 2.00
  2. Begin Form RBErrFrm
  3. BackColor       =   &H00C0C0C0&
  4. BorderStyle     =   3  'Fixed Double
  5. Caption         =   "RDB Error Handler"
  6. ClientHeight    =   3225
  7. ClientLeft      =   2550
  8. ClientTop       =   2490
  9. ClientWidth     =   4500
  10. Height          =   3630
  11. Icon            =   RBERRFRM.FRX:0000
  12. Left            =   2490
  13. LinkTopic       =   "Form2"
  14. MaxButton       =   0   'False
  15. ScaleHeight     =   3225
  16. ScaleWidth      =   4500
  17. Top             =   2145
  18. Width           =   4620
  19. Begin CommonDialog CMDialog1
  20. HelpFile        =   "rberror.hlp"
  21. Left            =   1740
  22. Top             =   1080
  23. Begin SSCommand Command3D1
  24. Caption         =   "Help"
  25. Font3D          =   0  'None
  26. Height          =   315
  27. Index           =   3
  28. Left            =   120
  29. TabIndex        =   5
  30. Top             =   2760
  31. Width           =   2115
  32. Begin SSCommand Command3D1
  33. Caption         =   "Ignore"
  34. Font3D          =   0  'None
  35. Height          =   315
  36. Index           =   2
  37. Left            =   2940
  38. TabIndex        =   4
  39. Top             =   2460
  40. Width           =   1380
  41. Begin SSCommand Command3D1
  42. Caption         =   "Retry"
  43. Font3D          =   0  'None
  44. Height          =   315
  45. Index           =   1
  46. Left            =   1500
  47. TabIndex        =   3
  48. Top             =   2460
  49. Width           =   1440
  50. Begin SSCommand Command3D1
  51. Caption         =   "Abort"
  52. Font3D          =   0  'None
  53. Height          =   315
  54. Index           =   0
  55. Left            =   120
  56. TabIndex        =   2
  57. Top             =   2460
  58. Width           =   1380
  59. Begin SSCommand Command3D1
  60. Caption         =   "Create Problem Report"
  61. Font3D          =   0  'None
  62. Height          =   315
  63. Index           =   4
  64. Left            =   2220
  65. TabIndex        =   1
  66. Top             =   2760
  67. Width           =   2115
  68. Begin TextBox Msg
  69. BackColor       =   &H00C0C0C0&
  70. Height          =   2295
  71. Left            =   120
  72. MultiLine       =   -1  'True
  73. TabIndex        =   0
  74. Top             =   60
  75. Width           =   4215
  76. Begin Label SvErr
  77. Caption         =   "Label1"
  78. Height          =   315
  79. Left            =   420
  80. TabIndex        =   6
  81. Top             =   1920
  82. Width           =   915
  83. Sub Command3D1_Click (index As Integer)
  84.     RB_Erraction = index
  85.     If index < 3 Then
  86.         Unload RBErrFrm
  87.     End If
  88.     If index = 3 Then
  89.         If Dir$("rberror.hlp") = "" Then
  90.             helploc = Trim(Environ$("windir"))
  91.             If Right(helploc, 1) <> "\" Then
  92.                 helploc = helploc + "\"
  93.             End If
  94.             CMDialog1.HelpFile = helploc & "rberror.hlp"
  95.         End If
  96.         CMDialog1.HelpCommand = HELP_KEY
  97.         CMDialog1.HelpKey = "Error" & Format$(Val(sverr.Caption), "######")
  98.         CMDialog1.Action = 6
  99.     End If
  100.     If index = 4 Then
  101.         RBProbRpt.TxtProblem.Text = Msg.Text
  102.         RBProbRpt.WindowState = MAXIMIZED
  103.         RBProbRpt.Show MODAL
  104.     End If
  105. End Sub
  106.